home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b4.d64 / colr selector.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  133 lines
  1. 5 REM CLEAR SCREEN & TO LOWER CASE
  2. 10 :PRINTCHR$(147);CHR$(14);
  3. 15 REM TITLE & CREDIT
  4. 20 :PRINT"";CHR$(18)" [195][207][204][207][213][210][160][195][207][205][194][201][206][193][212][201][207][206][211] [211][197][204][197][195][212][207][210] "
  5. 30 :PRINT"[195]HARLIE [208]ATERSON   [212]ORONTO   [195]ANADA "
  6. 40 :PRINT"[212][208][213][199][160]#22801983 08 08
  7. 45 [143] INSTRUCTIONS
  8. 50 :[153]"(null)RY YOUR SELECTIONS FROM THE 4096"
  9. 60 :[153]"  SCREEN  COLOUR  COMBINATIONS  OF THE"
  10. 70 :[153]"  LEN64. ATN(null)(null)(null)ATNLEN(null)RIGHT$(null)VAL -- TO -- (null)VAL(null)(null)(null)(null)RIGHT$(null)VAL."
  11. 80 :[153]"  LENHOOSE YOUR PREFERENCES FOR BORDERS,"
  12. 90 [153]"  BACKGROUNDS, AND CHARACTERS. (null)AKE A     PEEK(null)ATNLEN(null)LEFT$(null)(null)VALCLOSEOR AN VAL(null)VALCLOSESTR$ATN(null)(null)(null)VAL(null).
  13. 100 PRINT"     [215]HEN A DISPLAY IS ATTRACTIVE, YOU"
  14. 110 PRINT"  CAN STOP THE PRESET VIEWING TIME AND"
  15. 120 PRINT"  HOLD-UNTILL YOU CHOOSE TO CONTINUE."
  16. 130 PRINT"     [207][203]! [205][193][211][212][197][210][160][195][207][204][207][213][210][160][195][207]-[207][210][196][201][206][193][212][207][210]"
  17. 140 :PRINT"          "CHR$(18)CHR$(129)" [208][193][210][212][201][195][201][208][193][212][197][160]"CHR$(30)" [197][206][202][207][217] "CHR$(154)
  18. 145 REM INSTRUCTION DELAY
  19. 150 :FOR TM = 1 TO 15000:NEXT TM
  20. 155 REM CLEAR SCREEN & TO UPPER CASE
  21. 160 PRINT CHR$(147);CHR$(142)
  22. 165 REM COLOUR DATA
  23. 170 :DATA 144,5,28,159,156,30,31,158
  24. 180 :DATA 129,149,150,151,152,153,154,155
  25. 185 REM COLOUR DISPLAY ROUTINE (995)
  26. 190 :GOSUB 1000
  27. 195 REM COLOUR REQUESTS
  28. 200 :PRINT CHR$(18)" PLEASE TYPE A # FROM 0 TO 15 ONLY ";CHR$(146)
  29. 210 :INPUT"COLOUR NUMBER FOR BORDER";BO:PRINT""
  30. 220 :IF BO <0 OR BO >15 THEN 210
  31. 230 :INPUT"COLOUR NUMBER FOR BACKGROUND";BA:PRINT""
  32. 240 :IF BA < 0 OR BA > 15 THEN 230
  33. 250 :INPUT"COLOUR NUMBER FOR CHARACTERS";CH
  34. 260 :IF CH < O OR CH > 15 THEN 250
  35. 265 REM SET BORDER COLOUR
  36. 270 : POKE 53280, BO
  37. 275 REM SET BACKGROUND COLOUR
  38. 280 :  POKE 53281, BA
  39. 285 REM SET CHARACTER COLOUR
  40. 290 :FOR C = 0 TO 15
  41. 300 : READ CN
  42. 310 :IF C = CH THEN CC=CN
  43. 320 :NEXT C
  44. 330 : PRINT CHR$(CC)
  45. 335 REM DISPLAY COLOUR NUMBERS
  46. 340 :PRINTCHR$(147);"";"   COLOURS   "
  47. 350 :PRINTCHR$(18);"BORDER     =";PEEK(53280) AND 15"[157] "
  48. 360 :PRINT"";CHR$(18);"BACKGROUND =";PEEK(53281) AND 15"[157] "
  49. 370 :PRINT"";"CHARACTERS =";CH
  50. 375 REM HOLD PATERN ROUTINE (1295)
  51. 380 : GOSUB 1300
  52. 385 REM VIEW TIME FOR EACH COMBINATION
  53. 390 :  FOR X = 1 TO 500
  54. 395 REM HOLD PATERN SELECT
  55. 400 : GET A$:IF A$ <>" " THEN 420
  56. 405 REM RESTART ROUTINE (1395)
  57. 410 : GOSUB 1400
  58. 420 :NEXT X
  59. 430 :RESTORE
  60. 440 :CLR
  61. 450 :X = 0
  62. 455 REM REQUEST FOR ANOTHER COMBINATION
  63. 460 :PRINTCHR$(147);CHR$(154);:POKE 53280,14:POKE 53281,6:PRINT"";
  64. 470 :INPUT"  DO YOU WANT ANOTHER ONE Y/N";A$
  65. 480 : IF A$ <"N" OR A$ >"Y" THEN 470
  66. 490 : IF A$ >"N"AND A$ <"Y"THEN 470
  67. 500 : IF A$ ="N" THEN 520
  68. 510 : GOTO 160
  69. 515 REM BYE BYE ROUTINE
  70. 520 :PRINTCHR$(147);:POKE 53280,4:POKE 53281,3
  71. 525 REM REPEAT CHARACTER COLOUR CHANGE
  72. 530 :FOR R = 1 TO 6
  73. 540 :FOR C = 0 TO 15
  74. 545 REM MESSAGE POSITIONING
  75. 550 : FOR DN = 1 TO 10:PRINT"";: NEXT DN300
  76. 560 :  FOR RT = 1 TO 9:PRINT"";:NEXT RT
  77. 565 REM MESSAGE PRINT
  78. 570 :   READ L
  79. 580 :   PRINTCHR$(L);
  80. 590 :    PRINT " BYE BYE RAINBOW EYES "
  81. 595 REM MESSAGE VIEW DELAY
  82. 600 :   FOR T = 1 TO 90:NEXT T
  83. 610 : PRINT CHR$(19);
  84. 620 :NEXT C
  85. 630 :RESTORE:NEXT R
  86. 635 REM SCREEN TO STANDARD COLOUR & END
  87. 640 :PRINTCHR$(147);:POKE 53280,14:POKE 53281,6:PRINTCHR$(154):END
  88. 995 REM COLOUR DISPLAY
  89. 1000 :PRINT CHR$(19);:C = 0:S = 0
  90. 1010 : FOR R = 1 TO 2
  91. 1020 :  FOR B = 1 TO 8
  92. 1030 :   FOR T = 1 TO 5
  93. 1040 :    POKE 1064+S,160:POKE 55336+S,C
  94. 1050 :    S = S+1
  95. 1060 :   NEXT T
  96. 1070 :   C = C+1
  97. 1080 :  NEXT B
  98. 1090 :  S = S+80
  99. 1100 : NEXT R
  100. 1105 REM NUMBER COLOURS
  101. 1110 :PRINT CHR$(159);"";:N = 0
  102. 1120 : FOR R = 1 TO 2
  103. 1130 :  FOR B = 1 TO 8
  104. 1140 :   PRINT N"";:IF N >9 THEN PRINT"[157]";
  105. 1150 :   N = N+1
  106. 1160 :  NEXT B
  107. 1170 :  PRINT "";
  108. 1180 : NEXT R
  109. 1190 :RETURN
  110. 1295 REM HOLD INSTRUCTIONS
  111. 1300 DATA160,144,146,133,147,147
  112. 1310 DATA160,147,144,129,131,133
  113. 1320 DATA160,130,129,146,160,148,143
  114. 1330 DATA160,136,143,140,132,160
  115. 1340 :IC = BA+1:IF BA = 4 THEN IC = 0
  116. 1350 : FOR T = 0 TO 24
  117. 1360 :  READ L
  118. 1370 :  POKE 1904+T,L:POKE 56176+T,IC
  119. 1380 : NEXT T
  120. 1390 :RETURN
  121. 1395 REM RESTART INSTRUCTIONS
  122. 1400 :DATA160,148,143,160,146,149,142
  123. 1410 :DATA160,144,146,133,147,147
  124. 1420 :DATA160,147,144,129,131,133
  125. 1430 :DATA160,130,129,146,160
  126. 1440 : FOR T = 0 TO 23
  127. 1450 :  READ L
  128. 1460 :  POKE 1904+T,L:POKE 56176+T,IC
  129. 1470 : NEXT T
  130. 1475 REM RESTART COMMAND
  131. 1480 :GET A$:IF A$ <>" " THEN 1480
  132. 1490 :GOTO 430
  133.